home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / misc1 / ami301c.zip / QKDUCTS.SM$ / QKDUCTS.SMM
INI File  |  1993-05-12  |  14KB  |  776 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Calculates circular equivalent of rectangular ducts
  19.     
  20.     
  21.     
  22.     
  23.     737249399
  24.     16
  25.     733534631
  26.     492
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     5
  59.     44 0 64 0 0 1 0 65535 8 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  60.     86 0 20 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  61.     131 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  62.     173 0 43 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  63.     204 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  64. [edoc]
  65. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  66.  
  67. <:#284,9360>
  68.  
  69. <:#284,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
  70.  
  71. <:#284,9360>Declare    FontDlg(Action, Hdlg, id)
  72.  
  73. <:#284,9360>Declare CellEngine(Action)
  74.  
  75. <:#284,9360>
  76.  
  77. @Function@<:#293,9360>Function Main()
  78.  
  79. <:#284,9360>CellEngine(1)    ' Start engine
  80.  
  81. <:#284,9360>FontDLG(1, 0, 0)
  82.  
  83. <:#284,9360>onerror endit
  84.  
  85. <:#284,9360>oncancel endit
  86.  
  87. <:#284,9360>rmac = getrunningmacrofile$()
  88.  
  89. <:#284,9360>setdlgcallback(0, "{rmac}!initdlg")
  90.  
  91. <:#284,9360>setdlgcallback(70, "{rmac}!winproc")
  92.  
  93. <:#284,9360>setdlgcallback(8000, "{rmac}!winproc")
  94.  
  95. <:#284,9360>setdlgcallback(8001, "{rmac}!winproc")
  96.  
  97. <:#284,9360>
  98.  
  99. <:#284,9360>dlgkeyinterrupt(<[>f1], "{rmac}!DisplayHelp")
  100.  
  101. <:#284,9360>dialogbox(".", "box1")
  102.  
  103. <:#284,9360>endit:
  104.  
  105. <:#284,9360>CellEngine(0)
  106.  
  107. <:#284,9360>FontDLG(4, 0, 0)
  108.  
  109. <:#284,9360>End Function
  110.  
  111. <:#284,9360>
  112.  
  113. @Function@<:#293,9360>function DisplayHelp()
  114.  
  115. @Outline2@<:#284,9360>' two defines needed for help.  The help name and panel number are defined above
  116.  
  117. @Outline2@<:#284,9360>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  118.  
  119. @Outline2@<:#568,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  120.  
  121. @Outline2@<:#284,9360>prohWnd = FindWindowa("AmiProWndA", 0)
  122.  
  123. @Outline2@<:#284,9360>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  124.  
  125. @Outline2@PanelNum= 95 
  126.  
  127. @Outline2@<:#284,9360>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  128.  
  129. @Outline2@<:#284,9360>end function
  130.  
  131. @Subhead@<:#284,9360>
  132.  
  133. @Function@<:#293,9360>function winproc(hdlg, id, value)
  134.  
  135. <:#284,9360>ignorekeyboard(1)
  136.  
  137. <:#284,9360>a = getdlgitemtext(hdlg, 8000)
  138.  
  139. <:#284,9360>b = getdlgitemtext(hdlg, 8001)
  140.  
  141. <:#284,9360>if isnumeric(a) and isnumeric(b) and a <<<;> 0
  142.  
  143. <:#284,9360>    top = CellEngine("({a}*{b})^5")
  144.  
  145. <:#284,9360>    bottom = CellEngine("({a}+{b})^2")
  146.  
  147. <:#284,9360>    rad = CellEngine("({top}/{bottom})")
  148.  
  149. <:#284,9360>    eighthroot = CellEngine("{rad}^(1/8)")
  150.  
  151. <:#284,9360>    dc = <:f240,BArial,255,0,0>eighthroot * 1.3 ' multiply times 1.3
  152.  
  153. <:#284,9360>    setdlgitemtext(hdlg, 1007, formatnum$("", "", 4, dc))
  154.  
  155. <:#284,9360>    enablewindow(GetDlgItem(hdlg, 70), 1)
  156.  
  157. <:#284,9360>endif
  158.  
  159. <:#284,9360>if id = 70
  160.  
  161. <:#284,9360>    clipboardwrite(<:f240,BArial,255,0,0>formatnum$("", "", 4, dc)<:f>, "Text") ' 
  162. <:f240,BArial,255,0,0>format result to four places<:f>
  163.  
  164. <:#284,9360>endif
  165.  
  166. <:#284,9360>end function
  167.  
  168. <:#284,9360>
  169.  
  170. <:#284,9360>
  171.  
  172. @Function@<:#293,9360>function initdlg(hdlg, id, value)
  173.  
  174. <:#284,9360>for i = 1000 to 1005
  175.  
  176. <:#284,9360>    fontdlg(3, hdlg, i)
  177.  
  178. <:#284,9360>next
  179.  
  180. <:#284,9360>fontdlg(3, hdlg, 8000)
  181.  
  182. <:#284,9360>fontdlg(3, hdlg, 8001)
  183.  
  184. <:#284,9360>enablewindow(GetDlgItem(hdlg, 70), 0)
  185.  
  186. <:#284,9360>end function
  187.  
  188. <:#284,9360>
  189.  
  190. @Subhead@<:#284,9360>
  191.  
  192. @Function@<:#293,9360>Function CellEngine(Action)
  193.  
  194. <:#284,9360>'Available Actions
  195.  
  196. <:#284,9360>'    1         Start the engine and allocate globalvar
  197.  
  198. <:#284,9360>'    2        Return the handle to the instance of the sheet
  199.  
  200. <:#284,9360>'    0        Shut everything down
  201.  
  202. <:#284,9360>'    Default    Expect a formula and return an answer
  203.  
  204. <:#284,9360>
  205.  
  206. <:#284,9360>' these defines may be useful at the beginning of your macro
  207.  
  208. <:#284,9360>Define StartEngine    1
  209.  
  210. <:#284,9360>Define GetInstance    2
  211.  
  212. <:#284,9360>Define CloseEngine    0
  213.  
  214. <:#284,9360>
  215.  
  216. <:#568,9360>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  217.  
  218. <:#568,9360>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  219.  
  220. <:#568,9360>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  221.  
  222. <:#284,9360>
  223.  
  224. <:#284,9360>DefStr hInstance, Answer, Var;
  225.  
  226. <:#284,9360>Mac = GetRunningMacroFile$()
  227.  
  228. <:#284,9360>GlobalInstance = StrCat$(Mac,"hIstance")
  229.  
  230. <:#284,9360>
  231.  
  232. <:#284,9360>Switch Action
  233.  
  234. <:#284,9360>    Case 1
  235.  
  236. <:#284,9360>        ' start the engine
  237.  
  238. <:#284,9360>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  239.  
  240. <:#284,9360>        If LibId = 0
  241.  
  242. <:#284,9360>            Message("<:f240,BArial,255,0,0>File LTSCE01.DLL<:f><:f240,BArial,255,0,0> is not found.<:f>", "<:f240,BArial,255,0,0>Ami Pro<:f>")    
  243.  
  244. <:#284,9360>            Return -1;
  245.  
  246. <:#284,9360>        Endif
  247.  
  248. <:#284,9360>        RetVal = CECREATEINSTANCE(&hInstance)
  249.  
  250. <:#284,9360>        AllocGlobalVar("{GlobalInstance}",1)
  251.  
  252. <:#284,9360>        AllocGlobalVar("{Mac}LibId",1)
  253.  
  254. <:#284,9360>        SetGlobalVar("{Mac}Libid",LibId)
  255.  
  256. <:#284,9360>        SetGlobalVar("{GlobalInstance}",hInstance)
  257.  
  258. <:#284,9360>        Return hInstance;
  259.  
  260. <:#284,9360>        Break;
  261.  
  262. <:#284,9360>
  263.  
  264. <:#284,9360>    Case 2
  265.  
  266. <:#284,9360>        ' return the handle to the instance of the sheet
  267.  
  268. <:#284,9360>        AllocGlobalVar("{GlobalInstance}",1)
  269.  
  270. <:#284,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  271.  
  272. <:#284,9360>        Return hInstance;
  273.  
  274. <:#284,9360>        Break;
  275.  
  276. <:#284,9360>
  277.  
  278. <:#284,9360>    Case 0
  279.  
  280. <:#284,9360>        ' destroy the instance of the sheet and free the global var and libid
  281.  
  282. <:#284,9360>        AllocGlobalVar("{GlobalInstance}",1)
  283.  
  284. <:#284,9360>        AllocGlobalVar("{Mac}LibId",1)
  285.  
  286. <:#284,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  287.  
  288. <:#284,9360>        LibId = GetGlobalVar$("{Mac}LibId")
  289.  
  290. <:#284,9360>        If hInstance
  291.  
  292. <:#284,9360>            CEDestroyInstance(hInstance)
  293.  
  294. <:#284,9360>            DllFreeLib(Libid)
  295.  
  296. <:#284,9360>        Endif
  297.  
  298. <:#284,9360>        FreeGlobalVar("{GlobalInstance}")
  299.  
  300. <:#284,9360>        FreeGlobalVar("{Mac}LibId")
  301.  
  302. <:#284,9360>        Break;
  303.  
  304. <:#284,9360>
  305.  
  306. <:#284,9360>    Default
  307.  
  308. <:#284,9360>        ' Calculate the formula and return the answer
  309.  
  310. <:#284,9360>            AllocGlobalVar("{GlobalInstance}",1)
  311.  
  312. <:#284,9360>            hInstance = GetGlobalVar$("{GlobalInstance}")
  313.  
  314. <:#284,9360>            CECalcNow(hInstance,"{Action}",&Answer)
  315.  
  316. <:#284,9360>            Return Answer;
  317.  
  318. <:#284,9360>        Break;
  319.  
  320. <:#284,9360>EndSwitch
  321.  
  322. <:#284,9360>End Function
  323.  
  324. <:#284,9360>
  325.  
  326. <:#284,9360>
  327.  
  328. @Function@<:#293,9360>Function FontDlg(Action, Hdlg, id)
  329.  
  330. <:#284,9360>' 1    Create a font and allocvar
  331.  
  332. <:#284,9360>' 2    Return the handle of the create font 
  333.  
  334. <:#284,9360>' 3    Set the id specified to the font
  335.  
  336. <:#284,9360>' 4    Freeglobalvar and delete created object
  337.  
  338. <:#284,9360>
  339.  
  340. <:#852,9360>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  341.  
  342. <:#284,9360>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  343.  
  344. <:#568,9360>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  345.  
  346. <:#284,9360>
  347.  
  348. <:#284,9360>rmac = getrunningmacrofile$()
  349.  
  350. <:#284,9360>Switch Action
  351.  
  352. <:#284,9360>    Case 1    ' Create the font and store it
  353.  
  354. <:#284,9360>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  355.  
  356. <:#284,9360>        AllocGlobalVar("{rmac}FontHandle",1)
  357.  
  358. <:#284,9360>        If Font
  359.  
  360. <:#284,9360>            SetGlobalVar("{rmac}FontHandle",Font)
  361.  
  362. <:#284,9360>            Return Font
  363.  
  364. <:#284,9360>        Else
  365.  
  366. <:#284,9360>            Return 0;    ' no font
  367.  
  368. <:#284,9360>        Endif
  369.  
  370. <:#284,9360>        Break;
  371.  
  372. <:#284,9360>    Case 2    ' Return the handle to the font
  373.  
  374. <:#284,9360>        Handle = GetGlobalVar$("{rmac}FontHandle")
  375.  
  376. <:#284,9360>        If Handle 
  377.  
  378. <:#284,9360>            Return Handle
  379.  
  380. <:#284,9360>        Else
  381.  
  382. <:#284,9360>            Return 0
  383.  
  384. <:#284,9360>        Endif
  385.  
  386. <:#284,9360>
  387.  
  388. <:#284,9360>    Case 3    ' Set the id to the font
  389.  
  390. <:#284,9360>        Handle = GetGlobalVar$("{rmac}FontHandle")
  391.  
  392. <:#284,9360>        If Handle 
  393.  
  394. <:#284,9360>            IdControl = GetDlgITem(Hdlg, id)
  395.  
  396. <:#284,9360>            SendMessageDlg(idControl, 0x30, Handle, 0)
  397.  
  398. <:#284,9360>            Return 1
  399.  
  400. <:#284,9360>        Else
  401.  
  402. <:#284,9360>            Return 0
  403.  
  404. <:#284,9360>        Endif
  405.  
  406. <:#284,9360>        Break;        
  407.  
  408. <:#284,9360>        
  409.  
  410. <:#284,9360>    Case 4    ' Delete the font and clear the var
  411.  
  412. <:#284,9360>        Handle = GetGlobalVar$("{rmac}FontHandle")
  413.  
  414. <:#284,9360>        If Handle
  415.  
  416. <:#284,9360>            DeleteObjectDLG(Handle)
  417.  
  418. <:#284,9360>            Stat = 1    
  419.  
  420. <:#284,9360>        Else
  421.  
  422. <:#284,9360>            Stat = 0
  423.  
  424. <:#284,9360>        Endif
  425.  
  426. <:#284,9360>        FreeGlobalVar("{rmac}FontHandle")
  427.  
  428. <:#284,9360>        Return Stat        
  429.  
  430. <:#284,9360>    Default
  431.  
  432. <:#284,9360>        Message("Unable to create the dialog box font.", "<:f240,BArial,255,0,0>Ami Pro<:f>")
  433.  
  434. <:#284,9360>EndSwitch    
  435.  
  436. <:#284,9360>
  437.  
  438. <:#284,9360>End Function
  439.  
  440. @Subhead@<:#284,9360>
  441.  
  442. @Subhead@<:#284,9360>
  443.  
  444. @Function@<:#293,9360>DIALOG    box1
  445.  
  446. <:#568,9360><:f240,BArial,255,0,0>-2134376448    11    70    40    162    132    ""    "AmiDialog"    "Rectangular Ducts"
  447.  
  448. <:#284,9360><:f240,BArial,255,0,0>FONT    8    "Helv"
  449.  
  450. <:#568,9360><:f240,BArial,255,0,0>5    6    106    27    1003    1342177280    "static"    "This computes the circular equivalent of a rectangular duct for equal friction and capacity."    0 
  451.  
  452. <:#284,9360><:f240,BArial,255,0,0>5    34    83    26    1004    1342177290    "static"    "qkducts.bmt"    0 
  453.  
  454. <:#568,9360><:f240,BArial,255,0,0>5    79    72    10    1000    1342177280    "static"    "Length of one side:"    0 
  455.  
  456. <:#568,9360><:f240,BArial,255,0,0>5    93    72    10    1001    1342177280    "static"    "Length of adjacent side:"    0 
  457.  
  458. <:#284,9360><:f240,BArial,255,0,0>74    77    20    12    8000    1350631552    "edit"    ""    0 
  459.  
  460. <:#284,9360><:f240,BArial,255,0,0>74    91    20    12    8001    1350631552    "edit"    ""    0 
  461.  
  462. <:#568,9360><:f240,BArial,255,0,0>5    108    64    10    1002    1342177280    "static"    "Circular equivalent = "    0 
  463.  
  464. <:#284,9360><:f240,BArial,255,0,0>74    108    50    10    1007    1342177280    "static"    ""    0 
  465.  
  466. <:#284,9360><:f240,BArial,255,0,0>74    119    57    10    1005    1342177280    "static"    "Diameter"    0 
  467.  
  468. <:#284,9360><:f240,BArial,255,0,0>116    4    40    14    1    1342373889    "button"    "Close"    0 
  469.  
  470. <:#284,9360><:f240,BArial,255,0,0>116    20    40    14    70    1342373888    "button"    "Copy"    0 
  471.  
  472. <:#284,9360>END DIALOG
  473.  
  474. >
  475.  
  476. [Embedded]
  477. 00010456
  478. >
  479. [macsum] 7
  480. Main 0 0 2 6
  481. DisplayHelp 273 0 4 24
  482. winproc 458 3 8 34
  483. initdlg 962 3 2 53
  484. CellEngine 1222 1 8 63
  485. FontDlg 2105 3 6 131
  486. box1 2991 0 -1 189
  487. [macse]
  488. 14 Main
  489. 16 CellEngine 1
  490. 16 FontDLG 1 0 0
  491. 20 00000226
  492. 19 00000226
  493. 0 802
  494. 13
  495. 8 1
  496. 0 41 0 "{1}!initdlg"
  497. 0 41 70 "{1}!winproc"
  498. 0 41 8000 "{1}!winproc"
  499. 0 41 8001 "{1}!winproc"
  500. 0 47 112 "{1}!DisplayHelp"
  501. 0 26 "." "box1"
  502. 16 CellEngine 0
  503. 16 FontDLG 4 0 0
  504. 6 0
  505. 15
  506. 9
  507. 14 DisplayHelp
  508. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  509. 13
  510. 8 1
  511. 0 798
  512. 13
  513. 0 16 [X] "HelpPack.hlp"
  514. 13
  515. 8 2
  516. 5 95
  517. 8 3
  518. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  519. 6 0
  520. 15
  521. 9
  522. 14 winproc
  523. 0 32 1
  524. 0 42 "{0}" 8000
  525. 13
  526. 8 4
  527. 0 42 "{0}" 8001
  528. 13
  529. 8 5
  530. 0 277 "{4}"
  531. 13
  532. 0 277 "{5}"
  533. 13
  534. 6 4
  535. 5 0
  536. 18 1
  537. 1 1
  538. 1 1
  539. 11 00000418
  540. 16 CellEngine "({4}*{5})^5"
  541. 13
  542. 8 6
  543. 16 CellEngine "({4}+{5})^2"
  544. 13
  545. 8 7
  546. 16 CellEngine "({6}/{7})"
  547. 13
  548. 8 8
  549. 16 CellEngine "{8}^(1/8)"
  550. 13
  551. 8 9
  552. 6 9
  553. 5 1.3
  554. 4 0
  555. 8 10
  556. 0 19 "" "" 4 "{10}"
  557. 13
  558. 0 43 "{0}" 1007 [X]
  559. 0 44 "{0}" 70
  560. 13
  561. 0 284 "user,EnableWindow,HHH" [X] 1
  562. 6 1
  563. 5 70
  564. 18 0
  565. 11 00000492
  566. 0 19 "" "" 4 "{10}"
  567. 13
  568. 0 1038 [X] "Text"
  569. 6 3
  570. 15
  571. 9
  572. 14 initdlg
  573. 5 1000
  574. 8 4
  575. 5 1005
  576. 6 4
  577. 18 2
  578. 12 00000103
  579. 10 00000142
  580. 5 1
  581. 6 4
  582. 3 0
  583. 8 4
  584. 10 00000025
  585. 16 fontdlg 3 "{0}" "{4}"
  586. 10 00000070
  587. 16 fontdlg 3 "{0}" 8000
  588. 16 fontdlg 3 "{0}" 8001
  589. 0 44 "{0}" 70
  590. 13
  591. 0 284 "user,EnableWindow,HHH" [X] 0
  592. 6 3
  593. 15
  594. 9
  595. 14 CellEngine
  596. 0 802
  597. 13
  598. 8 5
  599. 0 16 "{5}" "hIstance"
  600. 13
  601. 8 6
  602. 5 1
  603. 6 0
  604. 18 0
  605. 11 00000405
  606. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  607. 13
  608. 8 7
  609. 6 7
  610. 5 0
  611. 18 0
  612. 11 00000236
  613. 0 3 "File LTSCE01.DLL is not found." "Ami Pro"
  614. 5 -1
  615. 15
  616. 9
  617. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &2
  618. 13
  619. 8 8
  620. 0 271 "{6}" 1
  621. 0 271 "{5}LibId" 1
  622. 0 264 "{5}Libid" "{7}"
  623. 0 264 "{6}" "{2}"
  624. 6 2
  625. 15
  626. 9
  627. 10 00000871
  628. 10 00000871
  629. 5 2
  630. 6 0
  631. 18 0
  632. 11 00000509
  633. 0 271 "{6}" 1
  634. 0 265 "{6}"
  635. 13
  636. 8 2
  637. 6 2
  638. 15
  639. 9
  640. 10 00000871
  641. 10 00000871
  642. 5 0
  643. 6 0
  644. 18 0
  645. 11 00000758
  646. 0 271 "{6}" 1
  647. 0 271 "{5}LibId" 1
  648. 0 265 "{6}"
  649. 13
  650. 8 2
  651. 0 265 "{5}LibId"
  652. 13
  653. 8 7
  654. 6 2
  655. 11 00000701
  656. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{2}"
  657. 0 298 "{7}"
  658. 0 266 "{6}"
  659. 0 266 "{5}LibId"
  660. 10 00000871
  661. 10 00000871
  662. 0 271 "{6}" 1
  663. 0 265 "{6}"
  664. 13
  665. 8 2
  666. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{2}" "{0}" &3
  667. 6 3
  668. 15
  669. 9
  670. 10 00000871
  671. 6 1
  672. 15
  673. 9
  674. 14 FontDlg
  675. 0 802
  676. 13
  677. 8 4
  678. 5 1
  679. 6 0
  680. 18 0
  681. 11 00000277
  682. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  683. 13
  684. 8 5
  685. 0 271 "{4}FontHandle" 1
  686. 6 5
  687. 11 00000239
  688. 0 264 "{4}FontHandle" "{5}"
  689. 6 5
  690. 15
  691. 9
  692. 10 00000251
  693. 5 0
  694. 15
  695. 9
  696. 10 00000874
  697. 10 00000874
  698. 5 2
  699. 6 0
  700. 18 0
  701. 11 00000406
  702. 0 265 "{4}FontHandle"
  703. 13
  704. 8 6
  705. 6 6
  706. 11 00000381
  707. 6 6
  708. 15
  709. 9
  710. 10 00000393
  711. 5 0
  712. 15
  713. 9
  714. 10 00000874
  715. 5 3
  716. 6 0
  717. 18 0
  718. 11 00000624
  719. 0 265 "{4}FontHandle"
  720. 13
  721. 8 6
  722. 6 6
  723. 11 00000586
  724. 0 44 "{1}" "{2}"
  725. 13
  726. 8 7
  727. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
  728. 5 1
  729. 15
  730. 9
  731. 10 00000598
  732. 5 0
  733. 15
  734. 9
  735. 10 00000874
  736. 10 00000874
  737. 5 4
  738. 6 0
  739. 18 0
  740. 11 00000819
  741. 0 265 "{4}FontHandle"
  742. 13
  743. 8 6
  744. 6 6
  745. 11 00000761
  746. 0 284 "gdi,DeleteObject,HH" "{6}"
  747. 5 1
  748. 8 8
  749. 10 00000771
  750. 5 0
  751. 8 8
  752. 0 266 "{4}FontHandle"
  753. 6 8
  754. 15
  755. 9
  756. 10 00000874
  757. 0 3 "Unable to create the dialog box font." "Ami Pro"
  758. 6 3
  759. 15
  760. 9
  761. DIALOG box1
  762. -2134376448 11 70 40 162 132 "" "AmiDialog" "Rectangular Ducts" 
  763. FONT 8 "Helv" 
  764. 5 6 106 27 1003 1342177280 "static" "This computes the circular equivalent of a rectangular duct for equal friction and capacity." 0 
  765. 5 34 83 26 1004 1342177290 "static" "qkducts.bmt" 0 
  766. 5 79 72 10 1000 1342177280 "static" "Length of one side:" 0 
  767. 5 93 72 10 1001 1342177280 "static" "Length of adjacent side:" 0 
  768. 74 77 20 12 8000 1350631552 "edit" "" 0 
  769. 74 91 20 12 8001 1350631552 "edit" "" 0 
  770. 5 108 64 10 1002 1342177280 "static" "Circular equivalent = " 0 
  771. 74 108 50 10 1007 1342177280 "static" "" 0 
  772. 74 119 57 10 1005 1342177280 "static" "Diameter" 0 
  773. 116 4 40 14 1 1342373889 "button" "Close" 0 
  774. 116 20 40 14 70 1342373888 "button" "Copy" 0 
  775. 00010481
  776.